*&---------------------------------------------------------------------*
*& Report ZFIR001
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zfir001.

INCLUDE zfi001top.
INCLUDE zfi001f01.
*--------------------------------------------------------------------*
* INITIALIZATION
*-----------------------------------------------------------------------
INITIALIZATION.
  PERFORM frm_init.
*-----------------------------------------------------------------------
* START-OF-SELECTION
*-----------------------------------------------------------------------
START-OF-SELECTION.
  PERFORM frm_check_input.
  PERFORM frm_get_data_00.  "抓取基础数据
  PERFORM frm_get_data_01.  "抓取项目文本基础数据
  PERFORM frm_get_data_02.  "抓取项目内容基础数据
  PERFORM frm_get_data_50.  "合并项目相关数据
  PERFORM frm_get_data_51.  "找到层次数据
  PERFORM frm_get_data_52.  "抓取科目余额表数据并将科目金额写入数据内表
  PERFORM frm_get_data_54.  "填充相关合计金额
  PERFORM frm_get_data_90.  "将相关数据整合到显示内表
  PERFORM frm_display_data. "显示数据